* lisp/edmacro.el (edmacro-format-keys): Fix previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d11db5d303e94721f813e0d8238c27921fba14ab..5949dcdbd00fa6f0b682163d24af3e7ac247bb87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-07-15  Glenn Morris  <rgm@gnu.org>
+
+       * edmacro.el (edmacro-format-keys): Fix previous change.
+
 2013-07-15  Paul Eggert  <eggert@cs.ucla.edu>
 
        * shell.el (explicit-bash-args): Remove obsolete hack for Bash 1.x.

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 67992d16527126667f95692c39e00a3abf6e3447..7366295118802f0832866a2010b8f41e39eb20e1 100644 (file)
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -562,7 +562,8 @@ doubt, use whitespace."
        (unless (string-match " " desc)
          (let ((times 1) (pos bind-len))
            (while (not (cl-mismatch rest-mac rest-mac
-                                         0 bind-len pos (+ bind-len pos)))
+                                    :start1 0 :end1 bind-len
+                                    :start2 pos :end2 (+ bind-len pos)))
              (cl-incf times)
              (cl-incf pos bind-len))
            (when (> times 1)